home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Assess.Dxr / Internal_1_Assessment startmovie script.ls < prev    next >
Encoding:
Text File  |  1998-04-24  |  977 b   |  31 lines
  1. global gMasterData, gLastRoller, balloonSprite, checkMarks1, gHandCursor, gFingerCursor
  2.  
  3. on startMovie
  4.   setModule(gMasterData, #assessment)
  5.   setSoundList(gMasterData, ["03": 0, "04": 0, "11": 0, "12": 0, "13": 0, "14": 0, "15": 0, "16": 0, "17": 0, "18": 0, "19": 0, "20": 0, "21": 0])
  6.   initFields()
  7.   if voidp(checkMarks1) then
  8.     set checkMarks1 to [#style: 0, #history: 0, #reactions: 0, #resources: 0, #fourCorners: 0]
  9.   end if
  10.   setRollSpecs()
  11.   set balloonSprite to 45
  12.   set gLastRoller to 0
  13.   set gHandCursor to [member "hand cursor", member "hand mask"]
  14.   set gFingerCursor to [member "finger cursor", member "finger mask"]
  15.   setFingerCursor(#on, [39, 40, 41, 42, 43, 44])
  16.   keepLittleSounds()
  17.   set the keyDownScript to "quitCatcher"
  18.   cursor(0)
  19. end
  20.  
  21. on quitCatcher
  22.   if the commandDown and ((the key = "q") or (the key = ".")) then
  23.     stopSounds()
  24.     if iAmActivated(gMasterData) then
  25.       getAllPart1()
  26.     end if
  27.     go("quit", "Menu")
  28.   end if
  29.   pass()
  30. end
  31.